home *** CD-ROM | disk | FTP | other *** search
INI File | 1997-03-10 | 29.4 KB | 480 lines
[Aliases] n0=/c64title /.timer90 1 5 /titlebar - c | /.timer91 1 6 /titlebar - c6 | /.timer92 1 7 /titlebar - c64 | /.timer93 1 8 /titlebar - c64 | /.timer94 1 9 /titlebar - c64. | /.timer95 1 10 /titlebar - c64.i | /.timer96 1 11 /titlebar - c64.ir | /.timer97 1 12 /titlebar - c64.irc | /.timer98 1 13 /titlebar - c64.irc v. | /.timer99 1 14 /titlebar - c64.irc v.02 | /.timer100 1 15 /.titlebar - c64.irc v.02 By | /.timer101 1 16 /titlebar - c64.irc v.02 By Craig | /.timer102 1 17 /titlebar - c64.irc v.02 By Craig E. | /.timer103 1 18 /titlebar - c64.irc v.02 By Craig E. Richards n1=ircopscan { n2= if ($1 == $null) { echo 4 -s Error, type: /ircopscan [-e|-c] | halt } n3= if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt n4= if ($1 == -e) { echo 6 This will scan the entire network and tell you the current visible IRCops online. | set %total 0 | set %option 1 | write $mircdir $+ raw.txt /echo 4 %window :ì: Listing IRCops! :ì: | .enable #ircopscan | who n5= 0 o } n6= if ($1 == -c) { n7= if (# == $null) { echo 4 -s Error, try using this is the channel window. | halt } n8= msg # Now listing visible IRCops on all networks. n9= set %total 0 | set %option 2 | write $mircdir $+ raw.txt /msg # :ì: Listing IRCops! :ì: | .enable #ircopscan | who 0 o n10= } n11=} n12=/stats { n13= set %StatsChanOps 0 n14= set %StatsNonOps 0 n15= set %StatsIRCops 0 n16= set %StatsAway 0 n17= set %StatsVoiced 0 n18= set %StatsHere 0 n19= set %StatsClones 0 n20= if ($1 == $null) && ($2 == $null) && (#* iswm $active) { set %statchan # | set %StatsDisplay msg # | who %statchan } n21= elseif ($1 == -e) && ($2 == $null) && (#* iswm $active) { set %statchan # | set %StatsDisplay echo %statchan | who %statchan } n22= elseif (#* iswm $1) && ($2 == $null) { set %statchan $1 | if ($me ison %statchan) { set %StatsDisplay msg %statchan } | else { set %StatsDisplay echo -s } | who %statchan } n23= elseif ($1 == -e) && (#* iswm $2) { set %statchan $2 | set %StatsDisplay echo %statchan | who %statchan } n24= else { n25= echo 3Invalid command option or you tried to retrieve stats on the current channel when you were not in a channel. n26= echo 3Usage: /stats [-e] [#channel] n27= echo - n28= } n29=} n30=percent { n31= %x = [ $$1 ] * [ 10000 ] n32= %x = [ %x ] / [ $$2 ] n33= if ($len(%x) == 1) { set %x 0 . $+ %x | goto next } n34= if ($len(%x) == 2) { set %x 0 . $+ %x | goto next } n35= if ($len(%x) == 3) { set %x $left(1,%x) $+ . $+ $right(2,%x) | goto next } n36= if ($len(%x) == 4) { set %x $left(2,%x) $+ . $+ $right(2,%x) | goto next } n37= if ($len(%x) == 5) { set %x $left(3,%x) $+ . $+ $right(2,%x) | goto next } n38= :next n39= if ($right(3,%x) == .00) { set %x $remove(%x,.00) | goto next2 } n40= if (*0 iswm %x) { n41= if ($len(%x) == 4) { set %x $left(1,%x) } n42= if ($len(%x) == 5) { set %x $left(2,%x) } n43= if ($len(%x) == 6) { set %x $left(3,%x) } n44= } n45= :next2 n46= return %x n47= unset %x n48=} n49=/time { n50= //msg $active 1,15 1,14 4,1 $+ $rtime 1,14 1,15á n51=} n52=/time2 { n53= //echo $active 1,15 1,14 4,1 $+ $rtime 1,14 1,15á n54=} n55=/rtime { n56= set %realtime $time n57= set %hour $token(1,58,%realtime) n58= set %type AM n59= if (%hour = 0) /set %hour 12 n60= if (%hour > 12) { /set %hour %hour - 12 | /set %type PM } n61= if (%hour = 12) /set %type PM n62= set %min $token(2,58,%realtime) n63= set %realtime %hour $+ : $+ %min %type n64= if (%online = on) /set %online %realtime n65= unset %hour | /unset %min | /unset %type | /return %realtime n66=} n67=backwards { n68= unset %backtext n69= if ($1 == -d) { n70= set %backtext º n71= set %text $remove(*1,$left(3,*1)) n72= } n73= else { %text = *1 } n74= %space = $chr(32) n75= %i = $len(%text) + 1 n76= :next n77= dec %i 1 n78= if %i == 0 { say %backtext | halt } n79= %thischar = $mid(%i,1,%text) n80= if %thischar == %space { n81= %thislet = n82= if %backtext == $null { set %backtext %thislet | goto next } n83= else { set %backtext %backtext $+ %thislet | goto next } n84= } n85= if %backtext == $null { set %backtext %thischar | goto next } n86= else { set %backtext %backtext $+ %thischar | goto next } n87=} n88=blocktalk { n89= set %bk $$?1="Enter Text:" *2 n90= %bk = $replace(%bk,a,[A]) n91= %bk = $replace(%bk,b,[B]) n92= %bk = $replace(%bk,c,[C]) n93= %bk = $replace(%bk,d,[D]) n94= %bk = $replace(%bk,e,[E]) n95= %bk = $replace(%bk,f,[F]) n96= %bk = $replace(%bk,g,[G]) n97= %bk = $replace(%bk,h,[H]) n98= %bk = $replace(%bk,i,[I]) n99= %bk = $replace(%bk,j,[J]) n100= %bk = $replace(%bk,k,[K]) n101= %bk = $replace(%bk,l,[L]) n102= %bk = $replace(%bk,m,[M]) n103= %bk = $replace(%bk,n,[N]) n104= %bk = $replace(%bk,o,[O]) n105= %bk = $replace(%bk,p,[P]) n106= %bk = $replace(%bk,q,[Q]) n107= %bk = $replace(%bk,r,[R]) n108= %bk = $replace(%bk,s,[S]) n109= %bk = $replace(%bk,t,[T]) n110= %bk = $replace(%bk,u,[U]) n111= %bk = $replace(%bk,v,[V]) n112= %bk = $replace(%bk,w,[W]) n113= %bk = $replace(%bk,x,[X]) n114= %bk = $replace(%bk,y,[Y]) n115= %bk = $replace(%bk,z,[Z]) n116= %bk = $replace(%bk,!,[!]) n117= %bk = $replace(%bk,?,[?]) n118= %bk = $replace(%bk,$,[$]) n119= %bk = $replace(%bk,#,[#]) n120= %bk = $replace(%bk,/,[/]) n121= %bk = $replace(%bk,\,[\]) n122= %bk = $replace(%bk,|,[|]) n123= say %bk n124= unset %bk n125=} n126=ctext { n127= unset %ctext* n128= set %loop 0 n129= set %ctext *1 n130= :1 n131= inc %loop 1 n132= if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 } n133= %ctext1 = $+ $rand(1,13) $+ $mid(%loop,1,%ctext) n134= if (%ctext2 == $null) { %ctext2 = %ctext1 } n135= else { %ctext2 = %ctext2 $+ %ctext1 } n136= ;echo -s .. %ctext4 n137= if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt } n138= goto 1 n139=} n140=clock { n141= say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2- n142= say 4,2-2,4=4,2-2,4=13,2 $rtime 2,4=4,2-2,4=4,2- n143= say 4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2-2,4=4,2- n144=} n145=/xmas { %num = 1 | unset %msg | %msg = | %color = p n146= :start n147= if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add } n148= if %color == y { %num2 = 4 | %num3 = 3 | %color = p | goto add } n149= :add n150= if $mid(%num,1, *1) != $null { n151= %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ n152= inc %num n153= goto start } n154= say %msg n155=} n156=/coke { %num = 1 | unset %msg | %msg = | %color = p n157= :start n158= if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add } n159= if %color == y { %num2 = 4 | %num3 = 0 | %color = p | goto add } n160= :add n161= if $mid(%num,1, *1) != $null { n162= %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ n163= inc %num n164= goto start } n165= say %msg n166=} n167=/brick { %num = 1 | unset %msg | %msg = | %color = p n168= :start n169= if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add } n170= if %color == y { %num2 = 4 | %num3 = 1 | %color = p | goto add } n171= :add n172= if $mid(%num,1, *1) != $null { n173= %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ n174= inc %num n175= goto start } n176= say %msg n177=} n178=colorchart { n179= say The colors are: 0,1White[0] 1Black[1] 2Dk.Blue[2] 3Green[3] 4Red[4] 5Brown[5] 6Purple[6] 7Orange[7] 8Yellow[8] 9Lt.Green[9] 10Teal[10] 11Cyan[11] 12Royal[12] 13Lt.Purple[13] 14Dk.Grey[14] 15Lt.Grey[15] n180=} n181=counter %temp = $ctime - $$1 | return %temp n182=timeonline ame has been online $duration($counter(%started)) n183=code { n184= set %pos1 0 n185= if (%code1 == º) { goto start1 } n186= if (%key < 2) || (%key > 90) { key } n187= set %len1 $len(*1) | set %code *1 | set %color1 4 | set %code1 "" | set %codekey %key n188= :start1 n189= inc %pos1 1 n190= %asc1 = $asc($mid(%pos1,1,%code)) + %codekey n191= if (%asc1 > 126) { dec %asc1 94 } n192= set %code1 %code1 $+ $chr(%asc1) n193= if (%pos1 < %len1) { goto start1 } n194= say º %code1 n195= echo %color1 > º %code n196= unset %len1 | unset %asc1 | unset %pos1 | unset %code | unset %code1 | unset %color1 n197= unset %codekey n198=} n199=code0 set %len1 $len(*1) | set %code *1 | set %code1 º | set %color1 2 | set %codekey 91 | code n200=decode { n201= set %len2 $len(%decode) n202= if (%len2 > 300) { echo 4 %chan *** Decode halted; possible decode flood from %nick $+ . | halt } n203= if ($mid(1,1,%decode) == º) { set %pos2 1 | set %color2 2 | set %decodekey 91 | goto start1 } n204= if (%key < 2) || (%key > 90) { key } n205= set %pos2 0 | set %color2 4 | set %decodekey %key n206= :start1 n207= set %code2 "" n208= %key2 = %decodekey + 33 n209= :start2 n210= inc %pos2 1 n211= set %asc2 $asc($mid(%pos2,1,%decode)) n212= if (%asc2 < %key2) { inc %asc2 94 } n213= dec %asc2 %decodekey n214= if (%asc2 == 94) { set %asc2 160 } n215= set %code2 %code2 $+ $chr(%asc2) n216= if (%pos2 < %len2) { goto start2 } n217= echo %color2 %chan < $+ %nick $+ > %code2 n218= unset %len2 | unset %nick | unset %chan | unset %asc2 | unset %key2 | unset %pos2 n219= unset %code2 | unset %color2 | unset %decode | unset %decodekey n220=} n221=key { n222= set %key $$?="Number (2-90 excluding 10,13 and 27)?" n223= mykey n224=} n225=mykey { n226= if ((%key < 2) || (%key == 10) || (%key == 13) || (%key == 27) || (%key > 90)) { n227= echo 4 $active *** Enter a number between 2 and 90, excluding 10,13 and 27. n228= } n229= else { echo 4 $active *** Code key is %key $+ . } n230=} n231=end_hangman msg %hangmanchan h┴±g m├± The game is now over! $me has ended it - phrase was $+ %realword $+ | msg %hangmanchan It took %wrongnum wrong tries and %rightnum right ones. | disable #game | halt n232=hangman { n233= if ($1 !isnum) { echo *** Usage: /hangman <num wrong guesses> <phrase> | halt } | if ($1 !isnum) { echo *** Number of guesses must be a number... | halt } %hmwrong = $1 n234= if ($1 == $null) { echo 4 *** Please specify a phrase, usage is '/hangman <phrase>' | halt } n235= enable #game | set %rightnum 0 | set %correctlets | set %realword *2 | set %dashword "" | set %wrong | set %lettersright "" | set %wrongnum 0 | %i = 0 | %hangmanchan = # | :next | inc %i n236= if (%i > $len(*2)) { goto done } n237= %thisasc = $asc($mid(%i,1,*2)) n238= if (%thisasc == 32) { set %dashword %dashword $+ | goto next } n239= else { set %dashword %dashword $+ - | goto next } n240= :done | say h┴±g m├± New Game Started h┴±g m├± | say Try To Guess: %dashword | say Everybody together gets %hmwrong guess(es). Type !guess <letter> to guess, !solve <phrase> to solve it. | halt n241=} n242=clone { n243= set %numclones 0 | set %num $nick(0,#) | set %start $ctime n244= echo -a 13<12=4[2Clone detection14 initiated on 1,8 # 14 - Scanning 4 %num n245= 14 Users 4]12=13> n246= :next n247= set %site $address($nick(%num,#),2) n248= if (%clone. [ $+ [ %site ] ] == $null) { set %clone. [ $+ [ %site ] ] ñ8,1 $+ $nick(%num,#) $+ ñ n249= } n250= else { n251= set %clone. [ $+ [ %site ] ] %clone. [ $+ [ %site ] ] ñ8,1 $+ $nick(%num,#) $+ ñ n252= if (%clonenick == $null) { n253= set %clonenick %site n254= inc %numclones 1 n255= } n256= elseif (%site !isin %clonenick) { n257= set %clonenick %clonenick %site n258= inc %numclones 1 n259= } n260= } n261= dec %num n262= if (%num > 0) goto next n263= set %end $ctime n264= if (%clonenick != $null) { n265= :displaynext n266= echo 4 -a 13 Clones >>> %clone. [ $+ [ $gettok(%clonenick,%numclones,32) ] ] 2 at n267= 14 $gettok(%clonenick,%numclones,32) n268= dec %numclones n269= if (%numclones > 0) goto displaynext n270= } n271= else echo -a 14>>>>> 2No Clones 14Found on 1,8 # 14>>>>> n272= %end = %end - %start n273= echo -a 13<12=4[2Clone scan 14 completed on 1,8 # 14 in 4 $duration(%end) n274= 4]12=13> n275= unset %num %clone.* %clonenick %numclones %start %end %site n276=} n277=autoial { n278= if ($$1 == ON) { n279= echo -a Auto Updating IAL is now ON n280= .enable #updateIAL n281= ial ON n282= } n283= elseif ($$1 == Off) { n284= echo -a Auto Updating IAL is now OFF n285= .disable #updateIAL n286= } n287=} n288=slisthelp { n289= if $1 == $null { set %nick $me } | else { set %nick $1 } n290= /notice %nick [SLIST HELP] n291= /notice %nick SLIST <#channel> <nick/address> <type> <days> <reason> n292= /notice %nick RLIST <#channel> <nick/address> n293=} n294=slist { n295= if %nick == $null { set %nick $me } n296= if ( $1 == $null ) || ( $2 == $null ) { slisthelp | halt } n297= if @ isin $2 { set %manual YES } | else { set %manual NO } | set %reason *5 n298= set %chan $1 n299= set %days $4 n300= if %manual == NO { n301= :standard n302= set %slisttype $3 n303= %x = $4 * 86400 n304= %addtype = %slisttype + 1 n305= set %addr $address($2,%addtype) n306= if %addr == $null { .enable #slist | .whois $2 | halt } n307= .ruser %addr n308= .auser =48 %addr n309= } n310= else { n311= :manual n312= %x = $4 * 86400 n313= .ruser $2 n314= .auser =48 $2 n315= set %addr $2 n316= } n317= :add n318= %expire = $ctime + %x n319= set %reason $left(10,$fulldate) for %days days : %reason n320= write -ds $+ %addr [ $mircdir $+ slist.txt ] n321= write -il1 $mircdir $+ slist.txt %addr %expire %chan %nick %reason n322= .mode %chan +b %addr | fkick %chan %addr %reason n323= .unset %expire %addr %slisttype %addtype %x %chan %reason %manual %nick %days n324=} n325=rlist { n326= if %nick == $null { set %nick $me } n327= if ( $1 == $null ) { slisthelp | halt } n328= if $left(1,$1) == $chr(35) { set %chan $1 } | else { slisthelp | halt } n329= if @ isin $2 { n330= set %addr $2 n331= .write -ds $+ [ %addr ] [ $mircdir $+ slist.txt ] n332= echo $active %addr has been removed from the slist. n333= .mode %chan -b %addr n334= .ruser =48 %addr n335= } n336= else { n337= set %bnick $2 n338= .enable #rlist | /whois $2 } n339=} n340=vlist { n341= set %chan $1 | .set %nick $2 | .set %addr $3 n342= set %line $read -s $+ [ %addr ] [ $mircdir $+ slist.txt ] n343= if %line == $null { echo 5 $active Warning! No Slist Listing for %nick $+ ( $+ %addr $+ ) | /mode $chan | halt } n344= set %bchan $token(2,32,%line) n345= if %chan != %bchan { halt } n346= set %expire $token(1,32,%line) n347= set %bnick $token(3,32,%line) n348= set %var %expire %bchan %bnick n349= %len = $len(%var) + 1 n350= set %reason $mid(%len,$len(%line),%line) n351= if %expire > $ctime { set %expire OFF } | else { set %expire ON } n352= if %expire == OFF { /mode %chan +b %addr | /kick %chan %nick %reason | .timer 1 3600 mode %chan -b %addr } | else { .ruser =48 %addr | write -ds $+ %addr $mircdir $+ slist.txt | /notice $me %nick $+ 's Slist Time has expired. Watch him! :) } n353= unset %len %reason %expire %line %addr %nick %chan %bnick %var n354=} n355=sclist { n356= echo 5 -s [Slist Scan Started at $time $+ ] n357= set %x 1 n358= :next n359= set %line $read -l $+ %x [ $mircdir $+ slist.txt ] n360= if %line == $null { echo 5 -s [End of Slist Scan] | unset %expire %line %addr %x | halt } n361= set %addr $token(1,32,%line) n362= set %expire $token(2,32,%line) n363= if %expire < $ctime { ruser =48 %addr | write -ds $+ %addr $mircdir $+ slist.txt | echo 5 -s Removing Expired Ban for: %addr } n364= inc %x | goto next n365=} n366=/fkick { n367= if $3 != $null { set %reason *3 } | else { set %reason Mass Kick } n368= set %fkickcount 1 n369= :kick n370= if $$2 iswm $address($nick(%fkickcount,$1),0) { kick $1 $nick(%fkickcount,$1) %reason } | inc %fkickcount | if %fkickcount <= $nick(0,$1) { goto kick } n371=} n372=slisting { n373= if %nick == $null { set %nick $me } n374= if %viewslist == $null { set %viewslist Slist_Report } n375= set %slistlines $lines(slist.txt) | set %slistlinect 1 | set %chan $1 n376= if %lview != 1 { msg %nick [Slist Report] } n377= else { /query %ViewSList | echo 4 %ViewSList [Slist Report] } n378= if %lview != 1 { n379= msg %nick $replace(-Ban #--- Address----------Exp-----#chan--By---Date-----------Length---------Reason----------,-,$chr(160)) } n380= else { n381= echo 2 %ViewSList $replace(-----Address----------Exp-----#chan--By---Date-----------Length,-,$chr(160)) n382= } n383= :slistprint n384= if %slistlinect <= %slistlines { set %line $read -l $+ %slistlinect slist.txt } n385= set %addr $token(1,32,%line) | set %bchan $token(3,32,%line) n386= if (%chan != %bchan) && (%chan != $null) goto next n387= set %expire $mid(4,7,$asctime($token(2,32,%line) ) ) | set %bnick $token(4,32,%line) n388= set %Sdate $token(5,32,%line) $token(6,32,%line) $token(7,32,%line) n389= set %Sdays $token(8,32,%line) $token(9,32,%line) $token(10,32,%line) n390= set %var %addr %expire %bchan %bnick %Sdate %Sdays n391= %len = $len(%var) + 4 n392= set %reason $mid(%len,$len(%line),%line) n393= if %lview != 1 { msg %nick ( $+ %slistlinect $+ ) %var %reason } n394= else { n395= echo 3 %ViewSList ( $+ %slistlinect $+ ) %var n396= echo 3 %ViewSList Reason $+ %reason n397= } n398= :next n399= inc %slistlinect n400= if %slistlinect <= %slistlines { goto slistprint } n401= if %lview != 1 { msg %nick [Slist Report End] } n402= else { echo 4 %ViewSList [Slist Report End] } n403= unset %slist* %len %expire %bchan % %reason %line %var %addr %chan %bnick %lview n404=} n405=wm { n406= echo -a 13<12=4[ 14Searching for -2 $$1 14- in 1,8 # 4]12=13> n407= set %fcount 0 | set %num $nick(0,#) n408= :next n409= if ($$1 iswm $address($nick(%num,#),5)) { n410= echo -a 13 Found >>> 2 $address($nick(%num,#),5) n411= inc %fcount n412= } n413= dec %num n414= if (%num > 0) goto next n415= echo -a 13<12=4[ 14Found4 %fcount 14instance(s) of2 $$1 4]12=13> n416= unset %fcount %num n417=} n418=/http .enable #http | dns $$1 | set %httpdir $2 | raw -q privmsg $me :DCC CHAT CHAT %rlongip 80 $+ n419=chanstats { n420= echo 1 -a There are $+ $chr(3) $+ 12 $opnick(0,#) $chr(3) $+ ops in # n421= echo 1 -a # modes: $+ $chr(3) $+ 12 $chan(#).mode n422= echo 1 -a # topic: $+ $chr(3) $+ 12 $chan(#).topic n423=} n424=tmo { set %i 0 | set %tmo 0 | :start | inc %i | if (%file [ $+ [ %i ] ] == $null) goto next | %tmo = %tmo + $lof(%file [ $+ [ %i ] ] ) | goto start | :next | %tmo2 = %tmo / 1000000 | %tmo1 = %tmo % 1000000 | if ($len(%tmo1) < 7) set %tmo1 1 | %tmo2 = %tmo2 $+ . $+ $left(1,%tmo1) | halt } n425=xdcc { if ($1 == on) { .disable #fserve | set %fserve off | set %xdccs on | .enable #xdcc | .enable #xdccmsg | halt } | if ($1 == off) { set %xdccs off | .disable #xdcc | .disable #xdccmsg | halt } | if (($1 == file) && ($2 != $null)) set %file [ $+ [ $2 ] ] $dir="Select File for Pack [ $2 ] " *.* | if (($1 == desc) && ($2 != $null)) { set %filedesc [ $+ [ $2 ] ] $?="Pack Description for [ [ $2 ] $+ ] :" | tmo } | if (($1 == note) && ($2 != $null)) set %fcomment [ $+ [ $2 ] ] $?="Comment for [ $2 ] " } n426=kps { if ($len($1) > 3) %cpsget = $remove($1,$right(3,$1)) $+ . $+ $left(2,$right(3,$1)) | else %cpsget = 0 $+ . $+ $1 | return %cpsget } n427=checksend { set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if (($send(%i) == $1) && ($send(%i).file == $2) && ($send(%i).status == waiting)) { close -s $1 $2 | raw -q notice $1 :Timeout: $2 | echo %c -a %h One or more DCC SENDs to $1 have timed out. | halt } | goto start } n428=pmin { if (($1 == $null) || ($2 == $null) || ($1 > %numpacks)) halt | if ($2 == 0) { unset %minsp [ $+ [ $1 ] ] | echo %c -a %h Removed minspeed for $+ %c2 $+ $1 $+ . | halt } | set %minsp [ $+ [ $1 ] ] [ $2 * 1000 ] | echo %c -a %h Minspeed for Pack $1 $+ : $+ %c2 $+ $2 $+ kb/s. } n429=minspeed { if ($1 == $null) halt | if ($1 == 0) { set %msall off | unset %allspeed | halt } | set %msall on | %allspeed = $1 * 1000 | echo %c -a %h Minspeed: $+ %c2 $+ $1 $+ kb/s. } n430=doffer { set %xdccs off | .disable #xdcc | .disable #xdccmsg | set %msall off | set %allspeed 0 | unset %minsp* | unset %file* | unset %fcomment* | set %record 0 | set %numpacks 0 | set %xdcclist 0 | set %xdccsend 0 | unset %tlmegs | unset %totalmegs | unset %get* | echo %c -a %h All packs removed from offer list. | set %xdccs off | cq } n431=addpack { %num = %numpacks + 1 | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="Select File for Pack [ %num ] " *.* | set %numpacks %num | echo %c -a %h XDCC Pack Number $+ %c2 $+ [ %num ] $+ has been added. | tmo } n432=offer { set %record 0 | set %lrecord 0 | set %fserve off | .disable #fserve | set %xdccs on | .enable #xdcc | .enable #xdccmsg | set %numpacks $$?="Number of Packs:" | set %num 0 | :start | inc %num | if (%num > %numpacks) { set %showsum $$?="Show Summary Line? y for Yes, n for No" | echo %c -a %h XDCC Offer has been set. Type /dcc anytime for DCC status. | tmo } | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="File for Pack [ %num ] " *.* | goto start } n433=cq write -c %qpath n434=fsize { if ($lof(%file [ $+ [ %num ] ] ) < 1000) { %fsize = $lof(%file [ $+ [ %num ] ] ) | set %bc b } | if (($lof(%file [ $+ [ %num ] ] ) >= 1000) && ($lof(%file [ $+ [ %num ] ] ) < 1000000)) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000 | set %bc k } | if ($lof(%file [ $+ [ %num ] ] ) > 1000000) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000000 | %fsize1 = $lof(%file [ $+ [ %num ] ] ) % 1000000 | %fsize = %fsize $+ . $+ $left(1,%fsize1) | set %bc M } | return %fsize } n435=psend { if ($3 != $null) write -dl1 %qpath | if ($2 > %numpacks) halt | raw -q notice $1 :Sending you %filedesc [ $+ [ $2 ] ] $+ , which is one file. | inc %get [ $+ [ $2 ] ] | .timer 1 %chsend checksend $1 [ $nopath(%file [ $+ [ $2 ] ] ) ] | if (%minsp [ $+ [ $2 ] ] != $null) { .timer 1 20 checkspeed $nick $nopath(%file [ $+ [ $2 ] ] ) [ %minsp [ $+ [ $2 ] ] ] } | dcc send $1 [ %file [ $+ [ $2 ] ] ] } n436=nlist { if (%numpacks == 0) halt | if ($1 == $null) set %xc .notice $active | else set %xc .notice $1 | sdcc } n437=plist { if (%numpacks == 0) halt | if ($1 == $null) set %xc amsg | else set %xc msg $1 | sdcc } n438=dcc { n439= if ($1 == send) { dcc send *2 | halt } | if ($1 == chat) { dcc chat *2 | halt } | if (($send(0) == 0) && ($get(0) == 0)) { echo %c -a %h Nothing on DCC list. | halt } | echo %c -a %h 1, $+ %c3 $+ DnumááááTypeááááNickáááááááStatusááááKpsáááááFilenameááá | if ($get(0) == 0) { set %i 1 | goto send } | if ($send(0) == 0) set %anysends no | set %i 0 | :start | inc %i | unset %barl | if (%i > $get(0)) goto send | %cpsget = $kps($get(%i).cps) | if (($get(%i).cps == n/a) || ($get(%i).cps == 0)) { set %cpsget 0.00 | set %geta4 n/a | goto get1 } | set %geta1 0 | set %geta2 0 | set %geta3 0 n440= %geta = $get(%i).size - $get(%i).rcvd | %geta = %geta / $get(%i).cps | :etag | if (%geta < 60) goto sec | if ((%geta >= 60) && (%geta < 3600)) goto min | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etag | :min | %geta2 = %geta / 60 | %geta = %geta % 60 | goto etag | :sec | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :get1 n441= echo %c -a áááááááá# $+ %i áááááGETáááá $get(%i) ááá $get(%i).status áá %cpsget ááá $get(%i).file | %barl = $get(%i).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $get(%i).pc $+ % áETA %geta4 ( $+ %c2 $+ $get(%i).rcvd $+ of $+ %c3 $+ $get(%i).size $+ bytes) | goto start | :send | dec %i | set %j 0 | :begin | inc %j | inc %i | unset %barl | if (%j > $send(0)) goto end | %cpssend = $kps($send(%j).cps) | if (($send(%j).cps == n/a) || ($send(%i).cps == 0)) { set %cpssend 0.00 | set %geta4 n/a | goto send1 } | set %geta1 0 | set %geta2 0 | set %geta3 0 n442= %geta = $send(%j).size - $send(%j).sent | %geta = %geta / $send(%j).cps | :etas | if (%geta < 60) goto secs | if ((%geta >= 60) && (%geta < 3600)) goto mins | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etas | :mins | %geta2 = %geta / 60 | %geta = %geta % 60 | goto etas | :secs | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :send1 n443= echo %c -a áááááááá# $+ %i áááááSEND áá $send(%j) áá $send(%j).status áá %cpssend áá $send(%j).file | %barl = $send(%j).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $send(%j).pc $+ % áETA %geta4 ( $+ %c2 $+ $send(%j).sent $+ of $+ %c3 $+ $send(%j).size $+ bytes) | goto begin | :end n444=} n445=sdcc { n446= %numopen = %maxslots - $send(0) | set %num 0 | :start | inc %num | if (%num > %numpacks) { if (%showsum != y) halt | if (%showsum == y) { set %g 0 | set %totalmegs 0 | set %tlmegs 0 | :begin | inc %g | if (%g <= %numpacks) { %tmegs = %get [ $+ [ %g ] ] * $lof(%file [ $+ [ %g ] ] ) | inc %tlmegs %tmegs | %omegs = $lof(%file [ $+ [ %g ] ] ) | inc %ofmegs %omegs | goto begin } | %totalmegs = %tlmegs / 1000000 | %totalmegs1 = %tlmegs % 1000000 | %totalmegs = %totalmegs $+ . $+ $left(1,%totalmegs1) | %xc Total Offered: $+ %tmo2 $+ M Total Snagged: $+ %totalmegs $+ M } | set %xdcc open | halt } n447= if ((%num == 1) && (%msall == on)) { %aspeed = %allspeed / 1000 | %xc ** %numpacks packs ** $+ %numopen $+ of $+ %maxslots $+ slots open, queue: $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Min: $+ %aspeed $+ kb /s, Record: $+ %record $+ kb /s } | if ((%num == 1) && (%msall != on)) %xc ** %numpacks packs ** $+ %numopen $+ of $+ %maxslots $+ slots open, queue: $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Record: $+ %record $+ kb /s | %xc # $+ %num $+ %get [ $+ [ %num ] ] $+ x [ $+ $fsize(%num) $+ %bc $+ ] %filedesc [ $+ [ %num ] ] n448= if (%fcomment [ $+ [ %num ] ] == $null) goto start | %xc á^- %fcomment [ $+ [ %num ] ] | goto start n449=} n450=xdccload { n451= if ($1 == $null) halt | if ($readini %path $+ \xdcc.txt $1 numpacks == $null) { echo %c -a %h No such offer in xdcc save. | halt } | set %i 0 | %numpacks = $readini %path $+ \xdcc.txt $1 numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer $+ %c2 $+ $1 $+ has been loaded. | xdcc on | halt } n452= set %file [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] | set %filedesc [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] | set %get [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] | if ($readini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] == yes) set %fcomment [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] | goto start n453=} n454=xdccsave { n455= if (($1 == $null) || (%numpacks == 0) || (%numpacks == $null)) halt | set %i 0 | writeini %path $+ \xdcc.txt $1 numpacks %numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer $+ %c2 $+ $1 $+ has been saved. | halt } n456= writeini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] %file [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] %get [ $+ [ %i ] ] | if (%fcomment [ $+ [ %i ] ] != $null) { writeini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] %fcomment [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] yes } | writeini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] %filedesc [ $+ [ %i ] ] | goto start n457=} n458=checkspeed { n459= set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if ($send(%i) == $1) && ($send(%i).file == $2) { n460= if ($send(%i).status == waiting) { raw -q notice $1 :You have DCCs pending. Type /DCC GET $me $+ . | .timer 1 30 checkspeed *1 | halt } | if ($send(%i).cps < $3) { %mstime = $send(%i).cps / 1000 | %msspeed = $3 / 1000 | close -s $1 $2 | raw -q notice $1 :MINSPEED: %mstime $+ kb/sec less than %msspeed $+ kb/sec: Closing connection. | halt } n461= } n462= goto start n463=} n464=pchannels .timer 0 %tc plist $?="enter channel to send plist to (cancel for all):" n465=poff { .timers off | .timer1 0 60 online } n466=timelimit %chsend = 60 * $$1 n467=maxslots set %maxslots $$1 n468=qmax set %maxqueue $$1 n469=ptime %tc = $$1 * 60 n470=cool { n471= unset *cool %i %text.cool n472= set %text1.cool $replace(*1,$chr(32),) | set %front.cool $rand(0,15) | set %back.cool %front.cool + 2 | if (%back.cool > 15) set %back.cool %back.cool - 15 n473= :again | inc %i | if (2 // %i) set %text.cool %text.cool $+ %back.cool $+ , $+ %front.cool $+ $mid(%i,1,%text1.cool) n474= else set %text.cool %text.cool $+ %front.cool $+ , $+ %back.cool $+ $mid(%i,1,%text1.cool) n475= if (%i == $len(%text1.cool)) { set %text.cool $remove(%text.cool,$chr(32)) | set %text.cool $replace(%text.cool,,$chr(32)) | msg $active %text.cool | halt } n476= goto again n477=} 
